home *** CD-ROM | disk | FTP | other *** search
/ Super Shareware Collection / Super Shareware Collection.iso / os_2 / clisp.zip / DEFMACRO.FAS < prev    next >
Text File  |  1994-02-05  |  11KB  |  156 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 12. LISP:NIL 290893.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D5 37 02 30 DE 19 01) "SYSTEM")
  3. #Y(#:TOP-LEVEL-FORM-2 #16Y(00 00 00 00 00 01 D5 2E 01 D5 D7 31 74 C0 19 01) MACRO-CALL-ERROR
  4.    REMOVE-OLD-DEFINITIONS
  5.    #Y(MACRO-CALL-ERROR #17Y(01 00 00 00 00 02 D5 90 02 AA 6E 41 6E 8A AB 5E 03)
  6.       "The macro ~S may not be called with ~S arguments"
  7.   )  )
  8. #Y(#:TOP-LEVEL-FORM-3 #11Y(00 00 00 00 00 01 D5 30 5B 19 01)
  9.    (SPECIAL %RESTP %MIN-ARGS %ARG-COUNT %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM)
  10.   )
  11. #Y(#:TOP-LEVEL-FORM-4 #14Y(00 00 00 00 00 01 D5 D5 77 01 31 75 19 01) MACRO-MISSING-VALUE)
  12. #Y(#:TOP-LEVEL-FORM-5 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) ANALYZE-AUX
  13.    #Y(ANALYZE-AUX
  14.       #64Y(02 00 00 00 00 03 A9 1A 2E 90 00 C0 58 1A 20 D7 AA 90 02 5E 02 D8 D9 AB 2C 03 05 19 04
  15.            90 00 8A 03 67 98 56 1F 69 98 56 74 99 56 57 74 5C 02 14 0E 01 58 0F 01 7F 00 98 20 63
  16.            8E 00 58 00 19 04
  17.           )
  18.       (NIL) %LET-LIST "in macro ~S: ~S may not be used as &AUX variable."
  19.       "The rest of the lambda list will be ignored."
  20.       "The lambda list of macro ~S contains a dot after &AUX." CERROR
  21.   )  )
  22. #Y(#:TOP-LEVEL-FORM-6 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) ANALYZE-KEY
  23.    #Y(ANALYZE-KEY
  24.       #560Y(03 00 00 00 00 04 60 5F AC 01 04 9C 1F 82 0E 83 04 03 14 23 00 80 B0 AA 23 01 80 B0 AA
  25.             23 03 80 B3 AA 23 04 80 AE AA 23 05 80 A9 AA 23 06 80 A4 AA 23 07 80 9F AA 23 08 80 9A
  26.             0E 0C 1C 16 AA 8A 03 80 95 9B 1F 0E AA 6E 41 24 0D 08 9B 56 14 67 0C 5C 02 F9 AA 8A 03
  27.             80 83 9B 1F 80 90 90 03 8A 03 80 B7 9B 56 1F 80 EA 9B 56 74 8B 7F 80 E3 9B 56 57 1F 80
  28.             DD 9B 56 57 74 8B 03 81 2C 9B 56 56 F8 9B 56 57 74 E4 B2 AC 03 1F 78 03 77 02 0E 11 58
  29.             0F 11 9B 57 57 1C 08 9B 57 57 74 8A 03 80 BE 79 01 9B 56 57 74 EA EB 9E 56 57 74 03 23
  30.             78 02 9E 57 74 9F 56 57 74 5C 04 14 77 02 0E 11 58 0F 11 A9 80 05 1A 81 40 79 06 1A 81
  31.             3B 91 04 B0 2F 02 1A 81 54 DE CA 1A 17 9B 1A FF 72 AA 6E 7E 67 0E 7C D3 02 AA E4 B2 AC
  32.             D0 5D 03 1A 4C E7 D3 14 B1 9E 1A 80 62 9B 57 57 56 F7 1C 80 44 14 EA EB 90 06 03 17 78
  33.             02 ED EE 90 08 A1 57 74 77 03 03 1A 78 02 03 1B 5D 03 1A FF 9F 90 03 6E 7E 67 0E 7C D3
  34.             02 90 03 E4 B2 AC D4 78 03 77 02 0E 11 58 0F 11 9B 57 57 1C 08 9B 57 57 74 8A 03 FF B6
  35.             79 01 90 03 EA EB 90 06 03 1C 78 02 9E 57 74 9F 1A FF 64 F2 F3 B1 9E 56 14 2C 04 0B 1A
  36.             80 A9 9B 57 57 56 F7 1C FF 3C 14 EA EB 9E 56 57 74 03 20 78 02 ED EE A0 56 57 74 A1 57
  37.             74 77 03 03 21 78 02 03 22 5D 03 1A FF 32 9B 57 57 56 F7 1C 80 41 14 EA EB AA 03 25 78
  38.             02 ED EE AC A1 57 74 77 03 03 26 78 02 03 27 5D 03 1A 38 9B 56 56 F8 37 01 7D 82 00 14
  39.             E4 B2 AC 03 24 78 03 77 02 0E 11 58 0F 11 9B 57 57 1C 08 9B 57 57 74 8A 03 FF B9 79 01
  40.             A7 EA EB AA 03 28 78 02 9E 57 74 9F 56 57 74 5C 04 14 77 02 0E 11 58 0F 11 A9 80 05 03
  41.             29 10 2A 03 29 10 2B 00 10 2C 00 10 0C 04 0F 56 57 74 B4 BD B6 2C 04 2D 12 04 7F 04 1A
  42.             FD FF 61 30 AC 61 31 AA 77 02 77 03 0E 32 58 0F 32 19 06 8F 04 08 61 2E 61 2F B1 2C 03
  43.             0B 16 05 8E 01 5F 00 19 06
  44.            )
  45.       &ALLOW-OTHER-KEYS &AUX ANALYZE-AUX &ENVIRONMENT &WHOLE &OPTIONAL &REST &BODY &KEY
  46.       "It will be ignored." "The lambda list of macro ~S contains a badly placed ~S." CERROR
  47.       %DEFAULT-FORM 1. *KEYWORD-PACKAGE* GETF (NIL) %LET-LIST "It will be ignored."
  48.       "The lambda list of macro ~S contains the invalid element ~S" (MACRO-MISSING-VALUE) IF EQ
  49.       (MACRO-MISSING-VALUE) PROGN SETQ (NIL) (T) (MACRO-MISSING-VALUE) "It will be ignored."
  50.       "The lambda list of macro ~S contains an invalid keyword specification ~S"
  51.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL) (T) (MACRO-MISSING-VALUE)
  52.       (MACRO-MISSING-VALUE) (MACRO-MISSING-VALUE) (NIL) (T) (MACRO-MISSING-VALUE) 0. %MIN-ARGS
  53.       %ARG-COUNT %RESTP ANALYZE1 "The rest of the lambda list will be ignored."
  54.       "The lambda list of macro ~S contains a dot after &KEY." KEYWORD-TEST QUOTE %KEYWORD-TESTS
  55.   )  )
  56. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) ANALYZE-REST
  57.    #Y(ANALYZE-REST
  58.       #92Y(03 00 00 00 00 04 9B 1F 2F 90 03 8B 03 2E 90 03 91 04 02 0F 02 A8 AC 77 02 0E 03 58 0F
  59.            03 98 54 1D 38 98 1F 1D 90 00 23 07 20 90 00 23 09 24 E0 E1 AC AA 2C 04 06 19 06 D5 A9
  60.            5E 01 D6 A9 90 05 5E 02 D9 DA AC 2C 03 06 19 06 91 00 A9 AC 2C 03 08 19 06 91 00 AB 2F
  61.            0A 19 06 19 06
  62.           )
  63.       "The lambda list of macro ~S is missing a variable after &REST/&BODY."
  64.       "The lambda list of macro ~S contains an illegal variable after &REST/&BODY: ~S" %RESTP
  65.       %LET-LIST "The rest of the lambda list will be ignored."
  66.       "The lambda list of macro ~S contains a misplaced dot." CERROR &KEY ANALYZE-KEY &AUX
  67.       ANALYZE-AUX "They will be ignored."
  68.       "The lambda list of macro ~S contains superfluous elements: ~S"
  69.   )  )
  70. #Y(#:TOP-LEVEL-FORM-8 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) CONS-CAR
  71.    #Y(CONS-CAR
  72.       #33Y(01 00 00 00 00 02 5F 9A 1F 0A 90 02 D5 37 03 7C BA 00 1B 06 D6 AA 5C 02 19 03 91 00 9B
  73.            57 58 19 03
  74.           )
  75.       ((CAR . CAAR) (CDR . CADR) (CAAR . CAAAR) (CADR . CAADR) (CDAR . CADAR) (CDDR . CADDR)
  76.        (CAAAR . CAAAAR) (CAADR . CAAADR) (CADAR . CAADAR) (CADDR . CAADDR) (CDAAR . CADAAR)
  77.        (CDADR . CADADR) (CDDAR . CADDAR) (CDDDR . CADDDR) (CDDDDR . FIFTH)
  78.       )
  79.       CAR
  80.   )  )
  81. #Y(#:TOP-LEVEL-FORM-9 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) CONS-CDR
  82.    #Y(CONS-CDR
  83.       #33Y(01 00 00 00 00 02 5F 9A 1F 0A 90 02 D5 37 03 7C BA 00 1B 06 D6 AA 5C 02 19 03 91 00 9B
  84.            57 58 19 03
  85.           )
  86.       ((CAR . CDAR) (CDR . CDDR) (CAAR . CDAAR) (CADR . CDADR) (CDAR . CDDAR) (CDDR . CDDDR)
  87.        (CAAAR . CDAAAR) (CAADR . CDAADR) (CADAR . CDADAR) (CADDR . CDADDR) (CDAAR . CDDAAR)
  88.        (CDADR . CDDADR) (CDDAR . CDDDAR) (CDDDR . CDDDDR)
  89.       )
  90.       CDR
  91.   )  )
  92. #Y(#:TOP-LEVEL-FORM-10 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) ANALYZE1
  93.    #Y(ANALYZE1
  94.       #448Y(04 00 00 00 00 05 AB 01 03 9B 1F 81 94 83 03 01 14 23 00 80 4B A8 23 03 80 63 A8 23 07
  95.             80 6D A8 23 08 80 68 A8 23 0A 80 6C A8 23 0D 80 81 A8 23 10 80 80 A8 23 13 80 86 8E 02
  96.             80 CF 67 1F 31 89 0F 1F 67 15 31 89 0F 15 A8 8B 03 81 2B A8 AF 2E 18 14 77 02 0E 01 58
  97.             0F 01 1A 81 3C C2 1A 81 4A 8F 05 79 9B 57 1C 75 9B 57 74 8B 03 6F 9B 57 74 AD 77 02 0E
  98.             01 58 0F 01 7F 03 1A 81 1F 8F 02 07 D9 DA AF AB 2C 04 06 7A 02 1A 81 10 91 03 AF AF 2C
  99.             03 09 19 09 37 01 7D 82 00 02 0F 0B A7 AF 77 02 0E 01 58 0F 01 91 03 A8 AF 2C 03 0C 19
  100.             09 E3 CF 1A 02 E6 D2 14 AF AB 2C 04 06 1A 80 DE 91 03 AE 2F 14 19 09 99 1A 80 5C 9D 57
  101.             56 1A 0C 90 01 EF B0 B1 6B 18 9D 57 20 70 00 14 77 04 77 02 0E 01 58 0F 01 99 57 1F 80
  102.             AF 99 57 57 1F 80 A9 99 57 57 74 8A 03 80 73 F0 AE 9B 57 57 74 5E 02 EF B0 B1 6B 18 9D
  103.             57 74 5C 04 1A 3D 67 15 31 89 0F 15 0E 16 1C 16 A8 8A 03 FF AB 99 1F 0E A8 6E 41 24 17
  104.             08 99 56 14 67 16 5C 02 F7 A8 8A 03 FF 1D 99 1F 80 47 90 01 8A 03 FF 94 37 01 7D 82 00
  105.             14 9A 57 20 FF BA AF 2E 18 14 77 02 0E 01 58 0F 01 03 1E 10 1F 03 1E 10 15 00 10 0B 90
  106.             0A B1 B8 B3 2C 04 20 12 03 99 57 57 1F 2E 99 57 57 74 F1 F2 B1 77 02 5C 02 1A FE D9 99
  107.             20 05 EE AE AA 5E 02 03 1E 10 1F 03 1E 10 15 00 10 0B B1 B8 6B 18 B8 BA 6B 18 2C 04 20
  108.             12 03 AE 2E 21 FD 7F 03 1A FE 68 8F 03 19 14 8A 03 07 03 22 14 AE AC 5E 02 AA AF 77 02
  109.             0E 01 58 0F 01 02 0F 0B 19 09 00 19 09
  110.            )
  111.       &WHOLE %LET-LIST "The lambda list of macro ~S contains an invalid &WHOLE: ~S" &OPTIONAL
  112.       "It will be ignored." "The lambda list of macro ~S contains a superfluous ~S." CERROR &REST
  113.       &BODY ANALYZE-REST &KEY %RESTP ANALYZE-KEY &ALLOW-OTHER-KEYS "It will be ignored."
  114.       "The lambda list of macro ~S contains ~S before &KEY." &ENVIRONMENT "It will be ignored."
  115.       "The lambda list of macro ~S contains ~S which is illegal here." &AUX ANALYZE-AUX %ARG-COUNT
  116.       %DEFAULT-FORM 1. CONS-CAR "The lambda list of macro ~S contains an invalid element ~S" IF
  117.       "The lambda list of macro ~S contains an invalid supplied-variable ~S" NOT NULL 0. %MIN-ARGS
  118.       ANALYZE1 CONS-CDR "The lambda list of macro ~S contains an illegal &REST variable: ~S"
  119.   )  )
  120. #Y(#:TOP-LEVEL-FORM-11 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) REMOVE-ENV-ARG
  121.    #Y(REMOVE-ENV-ARG
  122.       #77Y(02 00 00 00 00 03 A9 1A 3A AA 5F 1A 08 91 01 90 02 80 01 66 01 90 01 24 00 73 A7 9A 57
  123.            75 30 A2 16 01 F6 99 57 56 1A 20 98 57 1F 0B 98 57 74 8B 03 05 98 57 56 1B 52 D6 AA AC
  124.            5E 02 90 00 23 00 67 7F 00 98 20 76 AA 00 14 3F 02 19 04
  125.           )
  126.       &ENVIRONMENT
  127.       "In the lambda list of macro ~S, &ENVIRONMENT must be followed by a non-NIL symbol: ~S"
  128.   )  )
  129. #Y(#:TOP-LEVEL-FORM-12 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) MAKE-LENGTH-TEST
  130.    #Y(MAKE-LENGTH-TEST
  131.       #82Y(01 00 00 00 00 02 67 00 8B 84 04 0E 01 1B 20 67 00 8A 84 1E 0E 01 1B 23 67 00 67 04 8D
  132.            01 2B 1E C6 14 D8 AA 77 02 0E 00 14 6E 89 5C 03 19 02 00 19 02 D7 D8 AA 77 02 0E 04 1A
  133.            6D C5 1A 63 DC DD 67 00 6E 89 D8 AC 77 02 67 04 6E 89 77 04 5C 02 19 02
  134.           )
  135.       %MIN-ARGS %RESTP > LENGTH %ARG-COUNT < /= NOT <=
  136.   )  )
  137. #Y(#:TOP-LEVEL-FORM-13 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) MAKE-MACRO-EXPANSION
  138.    #Y(MAKE-MACRO-EXPANSION
  139.       #185Y(01 00 00 00 00 02 99 1F 0F 90 01 8B 03 0E 99 57 20 17 C2 14 90 02 5E 01 D5 A9 5E 01 C1
  140.             1A 74 00 1A 80 72 14 5C 01 1A 80 72 90 01 9A 57 74 9B 57 75 A7 60 37 01 30 60 41 03 8F
  141.             01 06 D8 9A 76 5C 01 F7 AB AD 2F 04 41 02 C5 10 06 C5 10 07 00 10 08 00 10 09 00 10 0A
  142.             00 10 0B BA E1 62 1B E2 2C 04 0E E2 6B 0F E5 67 09 6E 43 BF 67 0A 6E 43 62 1B 32 03 20
  143.             78 02 8F 01 07 E6 A9 E7 AA 5C 04 F6 E8 62 1C E9 E2 EA 8E 19 02 03 16 14 77 03 EC 8E 19
  144.             FF 8C 03 18 14 8E 1C FF 89 00 14 EE 62 23 B0 77 03 77 01 32 03 20 78 03 77 03 62 1C 62
  145.             1C 62 19 3F 04 16 02 12 06 19 0A
  146.            )
  147.       "Cannot define a macro from that: ~S" "The name of a macro must be a symbol, not ~S"
  148.       "Macro ~S is missing a lambda list." DECLARE REMOVE-ENV-ARG 0. %ARG-COUNT %MIN-ARGS %RESTP
  149.       %LET-LIST %KEYWORD-TESTS %DEFAULT-FORM (CDR <MACRO-FORM>) <MACRO-FORM> ANALYZE1
  150.       MAKE-LENGTH-TEST LET* IF (MACRO-CALL-ERROR <MACRO-FORM>) FUNCTION LAMBDA &OPTIONAL <ENV-ARG>
  151.       (DECLARE (CONS <MACRO-FORM>)) ((DECLARE (IGNORE <ENV-ARG>))) BLOCK
  152.   )  )
  153. #Y(#:TOP-LEVEL-FORM-14 #12Y(00 00 00 00 00 01 D5 D6 31 74 19 01) MAKE-MACRO-EXPANDERCONS
  154.    #Y(MAKE-MACRO-EXPANDERCONS #15Y(01 00 00 00 00 02 D5 A9 6B 01 30 5C 58 19 02) MACRO
  155.       MAKE-MACRO-EXPANSION
  156.   )  )